Users_Forfilms.asp 云网互动影视系统(12套模版和资源联盟) 6.2 - ASP源码程序

www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Users/Users_Forfilms.asp
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>用户求片</title>
<link href="style/nav.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="../Conn.asp" -->
<!--#include file="../Function/Function.asp" -->
<table width="100%" border="0" cellpadding="0" cellspacing="0">
     <tr>
       <td width="100%" valign="top"><table width="690" border="0" align="center" cellpadding="0" cellspacing="0">
         <tr>
           <td height="43" background="images/user_top.gif"><table width="100%" border="0" cellpadding="0" cellspacing="0">
             <tr>
               <td width="6%">&nbsp;</td>
               <td width="94%">用户求片</td>
             </tr>
           </table></td>
         </tr>
       </table><br />
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
         <tr>
           <td bgcolor="#f7f7f7"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="login">
             <tr>
               <td><br>
<%sub AddSave()
IF ChecKWcafesIP(UsersIP())=True Then
DemandUsers=Request.Cookies("YWNTUserCookie")("WcafesName")
UsersGroupx=Request.Cookies("YWNTUserCookie")("WcafesGroup")
else
Set RS=Server.CreateObject(YWNT_TMS_RS)
SQL="select UsersName,UsersGroup from YWNT_TMS_Users Where UsersName='"&Request.Cookies("YWNTUserCookie")("UserName")&"'"
Rs.open sql,Conn,1,1
If not RS.Eof Then
DemandUsers=RS("UsersName")
UsersGroupx=RS("UsersGroup")
End If
RS.Close
Set RS = Nothing
end if
if GetUsersGroup("GroupFfilms",UsersGroupx)=0 then
	response.write"<script>alert('您所在用户组无权求片！');window.close();</Script>"
	response.end
end if
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from YWNT_TMS_DemandMovie"
Rs.open sql,Conn,1,3
RS.AddNew
RS("DemandMovie")=NoSqlHack(Replacehtml(Request.Form("DemandMovie")))
RS("DemandContent")=NoSqlHack(Replacehtml(Request.Form("DemandContent")))
RS("DemandUsers")=DemandUsers
RS("DemandDate")=Now()
Rs.Update
Rs.Close
Set Rs = Nothing
Response.write "<script>alert('该求片信息成功发送，我们收到后马上进行处理!');location.href = '"&Request.ServerVariables("HTTP_REFERER")&"';</Script>"
end sub
Action=Trim(Request.QueryString("Action"))
Select Case Action
Case "AddSave"
	call AddSave()
Case else
if ChecKWcafesIP(UsersIP())<>True then
if Request.Cookies("YWNTUserCookie")("UserName")="" then
	call UsersLogin()
	Response.end
end if
end if
call Add() 
End Select
Sub Add()%>
<script language="JavaScript" type="text/javascript">
function Forfilms(form) 
{
if (form.DemandMovie.value=='')
 {
alert("请填写影片名称！");
form.DemandMovie.focus()
return false;
}
if (form.DemandContent.value=='')
 {
alert("请填写影片描述！");
form.DemandContent.focus()
return false;
}
}
</script>
                 <table width="66%" align="center" cellpadding="0" cellspacing="0">
                  <form action="Users_Forfilms.asp?Action=AddSave" method="post"  onSubmit="return Forfilms(this);">
                   <tr>
                     <td align="right" width="20%" height="30">影片名称：</td>
                     <td align="left"><input name="DemandMovie" id="DemandMovie" size="40" />                     </td>
                   </tr>
                   <tr>
                     <td align="right">影片描述：</td>
                     <td align="left"><textarea name="DemandContent" cols="50" rows="10"></textarea>                     </td>
                    </tr>
                   <tr>
                     <td align="right">&nbsp;</td>
                     <td><input type="image" name="imageField" src="images/qd_06.gif" /></td>
                   </tr>
                   </form>
                 </table>
<%End Sub%>
               <br></td>
             </tr>
           </table></td>
         </tr>
       </table></td>
     </tr>
   </table>
<%call connclose()%>
</body>
</html>